(DEFPROP MOREFNS (MOREFNS *MIN *MAX FIX+ FILELST D CONDEVAL COLLECT (SETQ CURRENTFILE NIL)) VALUE) 

(LAP *MIN SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (CALL 2. (E *GREAT) S) 
       (JUMPE 1. TAG2) 
       (MOVE 1. 0. P) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 1. -1. P) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP *MAX SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (CALL 2. (E *LESS) S) 
       (JUMPE 1. TAG2) 
       (MOVE 1. 0. P) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 1. -1. P) 
 TAG1  (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP FIX+ SUBR) 
       (MOVEI 2. (QUOTE 0.99999899) S) 
       (CALL 2. (E *PLUS) S) 
       (JCALL 1. (E FIX) S) 
       NIL 

(DEFPROP FILELST (FILELST FORSM DUMMY INIT FORLSP MORE CYCPRE CYCOMA CYCOMB CYCOMD CYCOME CYCOMF CYCOMG CYCOMH C→
YCMR1 CYCCAT CYCMR2 EXPAND STRGEN CYCDRJ CRESOR CRECYC CRELAP) VALUE) 

(LAP D FSUBR) 
       (PUSH P 1.) 
       (CALL 15. (E DE) S) 
       (MOVEM 1. 0. P) 
       (MOVEM 1. (SPECIAL LASTWORD) S) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (PUSH P 1.) 
       (MOVE 1. (SPECIAL CURRENTFILE) S) 
       (JUMPE 1. TAG2) 
       (CALL 1. (E FILEFNS) S) 
       (MOVEM 1. -3. P) 
       (MOVE 1. (SPECIAL CURRENTFILE) S) 
       (CALL 1. (E FILEFNS) S) 
       (CALL 1. (E CONDEVAL) S) 
       (MOVE 2. -4. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (EXCH 1. -3. P) 
       (CALL 2. (E SET) S) 
       (JUMPN 1. TAG1) 
 TAG2 
 TAG1  (MOVE 1. 0. P) 
       (SUB P (C 5. 0. 5. 0.)) 
       (POPJ P) 
       NIL 

(LAP CONDEVAL SUBR) 
       (PUSH P 1.) 
       (MOVEI 2. (QUOTE VALUE) S) 
       (CALL 2. (E GET) S) 
       (JUMPN 1. TAG1) 
       (MOVEI 1. (QUOTE (NIL)) S) 
 TAG1  (HRRZ@ 1. 1.) 
       (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(LAP COLLECT SUBR) 
       (MOVE 2. 1.) 
       (MOVEM 2. (SPECIAL CURRENTFILE) S) 
       (PUSH P 1.) 
       (JUMPE 1. TAG2) 
       (MOVE 2. (SPECIAL FILELST) S) 
       (CALL 2. (E DREMOVE) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E XCONS) S) 
       (MOVEM 1. (SPECIAL FILELST) S) 
       (JUMPN 1. TAG1) 
 TAG2  (TDZA 1. 1.) 
 TAG1  (MOVEI 1. (QUOTE T) S) 
       (SUB P (C 1. 0. 1. 0.)) 
       (POPJ P) 
       NIL 

(SETQ CURRENTFILE NIL)